home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / door / ac174v13.zip / RSB2CHAT.MRG < prev    next >
Text File  |  1992-10-01  |  2KB  |  45 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB2.BAS to produce RBBSSUB2.NEW
  3. * RBBSSUB2.BAS:  Date 6-20-1992  Size 140946 bytes
  4. *          ANSIChat (c) 1992 by Richie Molinelli
  5. * ------------[ Created 10-01-1992 21:17:34 ]------------
  6. * REPLACING old line(s) by new
  7. 4773 ' $SUBTITLE: 'SysopChat - chat with sysop'
  8. ' $PAGE
  9. '
  10. '  NAME    -- SysopChat
  11. '
  12. * ------[ first line different ]------
  13. '                 PARAMETER                    MEANING
  14. '  INPUTS  --  ChatType                   1 = Line Chat no ANSI      ' CHAT174/RM100101
  15. '                                         2 = ANSIChat               ' CHAT174/RM100101
  16. '  OUTPUTS --  ZWasCM                     True if chat active
  17. '
  18. '  PURPOSE --  Lets sysop chat interactively with caller
  19. '
  20.      SUB SysopChat (ChatType) STATIC                                 ' CHAT174/RM100101
  21.      ZWasCM = ZTrue
  22.      TimeChatStarted! = TIMER
  23.      ZSubParm = 1
  24.      CALL Line25
  25.      ZOutTxt$(2) = ""
  26.      ON ChatType GOTO 4775,4776                                      ' CHAT174/RM100101
  27. 4775 CALL LineEdit (1,72)
  28.      IF ZKeyPressed$ = ZEscape$ OR _
  29.         ZSubParm < 0 THEN _
  30.         GOTO 4777
  31.      ZOutTxt$(1) = ""
  32.      IF ZOutTxt$(2) <> "" THEN _
  33.         ZOutTxt$ = ZOutTxt$(2) : _
  34.         ZOutTxt$(1) = ZOutTxt$(2) : _
  35.         ZOutTxt$(2) = "" _
  36.      ELSE ZOutTxt$ = ""
  37.      ZSubParm = 4
  38.      CALL TPut
  39.      IF ZSubParm > -1 THEN _
  40.         GOTO 4775
  41. * ------[ first line different ]------
  42.      GOTO 4777                                                       ' CHAT174/RM100101
  43. * INSERTING new line(s)
  44. 4776 CALL ANSIChat                                                   ' CHAT174/RM100101
  45.